object FormDrGraf: TFormDrGraf Left = -1 Top = -1 Width = 645 Height = 454 HorzScrollBar.Range = 1200 VertScrollBar.Range = 2000 AutoScroll = False Caption = 'Doktorlara �li�kin Re�ete Bilgileri ve Grafikleri' Color = clSilver Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] Scaled = False OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object LabelTAR: TLabel Left = -1 Top = -1 Width = 66 Height = 14 Caption = 'Tarih Aral���' end object RadioGrSIR: TRadioGroup Left = 127 Top = -1 Width = 394 Height = 37 Caption = 'Doktor S�ralama Kriteri: En B�y�k' Columns = 2 ItemIndex = 0 Items.Strings = ( 'Miktarda �la� Yazandan �tibaren' 'Tutarda �la� Yazandan �tibaren') TabOrder = 2 end object BitBtn2: TBitBtn Left = 544 Top = 7 Width = 68 Height = 25 Caption = '&Tabloyu A�' Font.Color = clRed Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = BitBtn2Click end object MaskEditSON: TMaskEdit Left = 62 Top = 14 Width = 63 Height = 22 AutoSelect = False EditMask = '99/99/9999;1;_' MaxLength = 10 TabOrder = 1 Text = '01.01.1998' OnExit = MaskEditBASExit end object MaskEditBAS: TMaskEdit Left = 0 Top = 14 Width = 61 Height = 22 AutoSelect = False EditMask = '99/99/9999;1;_' MaxLength = 10 TabOrder = 0 Text = '01.01.1997' OnExit = MaskEditBASExit end object PanelGRAF: TPanel Left = -2 Top = 417 Width = 663 Height = 844 BevelInner = bvLowered BorderWidth = 3 Color = clNavy TabOrder = 6 object ScrollBox1: TScrollBox Left = 5 Top = 5 Width = 653 Height = 834 Align = alClient Color = clGray ParentColor = False TabOrder = 0 object Label2: TLabel Left = 567 Top = 182 Width = 63 Height = 84 Caption = 'Grafik Bilgisinin Yaz�laca�� Txt. Dosyas�n�n Ad�' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Chart1: TChartFX Left = 0 Top = 0 Width = 565 Height = 409 TabOrder = 0 ControlData = { 653A0000452A00006000000001000102FDB303FFFFFFFF380032002800280002 00000000000000080001000000000000000000000000000000000000FFFF00C0 C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000 00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80 0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00 00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF 00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000 6008000000080000000800000008000000080000000800000008000000000000 0000000000000000000000000000000000000000000000000000000000580000 00000054008A10000080685B00AC2A020684643702003E5A00943D5A000C0054 0090385A000000000000000000E85D5A00D88C570034545B000C005400202637 020000000000000000B8B0590004B662020000000024235A0050000000000054 000000000000000000D4FC63006E7374732E706173EC41EE0272642E7090CF23 021C7E2402EE00000088984F0208545B00000000005883570000000000000000 0044AA600000000000480158004C000000000054008A100000C08C5700ECEE58 000C005400EE000045543E5A0070720000000000001C043002E046130278621E 02637A380045435A388C065A00E415C505CC6FF10400000000A0215A00300000 00000054009A10000074425900000000000000000084845700000000003C6246 0290385A00B8AC2402000000007CE75D00000000000000F03F000000000000F0 3F02000400000000000000000000000000000024400000000000000000000000 000000000000000000000000} end object BtnYUK: TBitBtn Left = 567 Top = 29 Width = 45 Height = 45 Caption = 'Y&ukar�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = BtnYUKClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333 337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337 4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444 44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444 473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444 7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447 33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473 33333333333737F333333333333C943333333333333737333333333333339733 3333333333337F333333333333339333333333333333733333330000} Layout = blGlyphTop NumGlyphs = 2 end object BtnYAZ: TBitBtn Left = 567 Top = 140 Width = 45 Height = 44 Caption = '&Yaz�c�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = BtnYAZClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} Layout = blGlyphBottom NumGlyphs = 2 end object BtnASA: TBitBtn Left = 567 Top = 84 Width = 45 Height = 45 Caption = 'A&�a��' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = BtnASAClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333 333333333337F3333333333333397333333333333337FF333333333333C94333 3333333333737F333333333333C9473333333333337373F3333333333CC94433 3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443 333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444 33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444 4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444 443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333 444377733337F333777FC33333393333374373333337333333730000} Layout = blGlyphBottom NumGlyphs = 2 end object ChartMik: TChartFX Left = 1 Top = 413 Width = 564 Height = 409 TabOrder = 6 ControlData = { 4B3A0000452A00006000000001000102FDB303FFFFFFFF380032002800280002 00000000000000080001000000000000000000000000000000000000FFFF00C0 C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000 00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80 0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00 00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF 00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000 6008000000080000000800000008000000080000000800000008000000000000 0000000000000000000000000000000000000000000000000000000000440000 00000054008A10000080685B00AC2A02060000000000000000C012580010FE37 0200000011EE0000FFB8325800EE000000CC825700287327028C4E2F02000000 0008AAB70538000000000054000000000000000000D4FC63006E7374732E7061 73EC41EE0210FE3702207E24028C835700F0D4E4010000000000000000842A5B 0024000000000054008A100000C08C5700CC04300272662E6470720000C01258 00220000008044B80528000000000054009A1000007442590074572D029C1258 00E4EF4B02E852200228AC240200000000FC8CD104000000000000F03F000000 000000F03F020004000000000000000000000000000000244000000000000000 00000000000000000000000000004349} end object BtnTXT: TBitBtn Left = 567 Top = 298 Width = 45 Height = 45 Caption = '.txt Ya&z' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = BtnTXTClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC C8807FF7777777777FF700000000000000007777777777777777333333333333 33333333333333333333333333333333333333333333333333330000} Layout = blGlyphBottom NumGlyphs = 2 end object EditFile: TEdit Left = 566 Top = 270 Width = 80 Height = 22 TabOrder = 4 Text = 'istDr.txt' end object BitBtn1: TBitBtn Left = 570 Top = 463 Width = 41 Height = 45 Caption = 'Yuka&r�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 7 OnClick = BitBtn1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333 337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337 4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444 44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444 473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444 7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447 33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473 33333333333737F333333333333C943333333333333737333333333333339733 3333333333337F333333333333339333333333333333733333330000} Layout = blGlyphTop NumGlyphs = 2 end end end object Panel1: TPanel Left = 0 Top = 1296 Width = 665 Height = 337 BevelInner = bvLowered BorderWidth = 4 Caption = 'Panel1' Color = 8454143 TabOrder = 7 object QRBand1: TQRBand Left = 6 Top = 6 Width = 653 Height = 35 Align = alTop BandType = rbTitle Color = clWhite ForceNewPage = False Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Ruler = qrrCmHV object QRLabelBaslik: TQRLabel Left = 246 Top = 15 Width = 78 Height = 14 Alignment = taCenter Caption = 'QRLabelBaslik' AlignToBand = True end object QRSysData2: TQRSysData Left = 577 Top = -1 Width = 89 Height = 17 AlignToBand = False Data = qrsPageNumber Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = 'Sayfa ' end end object QRBand2: TQRBand Left = 6 Top = 41 Width = 653 Height = 43 Align = alTop BandType = rbDetail Color = clWhite Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ForceNewPage = False Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False ParentFont = False Ruler = qrrCmH object QRShape1: TQRShape Left = 2 Top = 2 width = 599 Height = 37 Shape = qrsRectangle end object QRShape5: TQRShape Left = 515 Top = 2 width = 4 Height = 37 Shape = qrsVertLine end object QRShape4: TQRShape Left = 326 Top = 2 width = 129 Height = 37 Shape = qrsRectangle end object QRShape3: TQRShape Left = 39 Top = 2 width = 212 Height = 37 Shape = qrsRectangle end object QRDBText1: TQRDBText Left = 4 Top = 21 Width = 32 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSource1 DataField = 'SNO' end object QRDBText3: TQRDBText Left = 267 Top = 21 Width = 48 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSource1 DataField = 'FARKILAC' end object QRDBText4: TQRDBText Left = 331 Top = 21 Width = 118 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSource1 DataField = 'TOPTUT' end object QRDBText5: TQRDBText Left = 467 Top = 21 Width = 38 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSource1 DataField = 'TOPMIK' end object QRDBText7: TQRDBText Left = 520 Top = 21 Width = 45 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSource1 DataField = 'ORTMIK' end object QRLabel3: TQRLabel Left = 11 Top = 3 Width = 24 Height = 14 Caption = 'S.No' AlignToBand = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object QRLabel2: TQRLabel Left = 44 Top = 3 Width = 58 Height = 14 Caption = 'Doktor Ad�' AlignToBand = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object QRLabel4: TQRLabel Left = 254 Top = 3 Width = 71 Height = 14 Caption = 'F.l� �la� Say�s�' AlignToBand = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object QRLabel5: TQRLabel Left = 342 Top = 3 Width = 99 Height = 14 Caption = 'Re�ete Br�t Tutar�' AlignToBand = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object QRLabel6: TQRLabel Left = 457 Top = 3 Width = 58 Height = 14 Caption = 'T.Kutu Mik' AlignToBand = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object QRLabel8: TQRLabel Left = 523 Top = 3 Width = 69 Height = 14 Caption = 'Ort.Kutu Mik.' AlignToBand = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object QRDBText2: TQRDBText Left = 44 Top = 21 Width = 203 Height = 17 AlignToBand = False DataSource = DataSource1 DataField = 'DRKOD' end object QRShape2: TQRShape Left = 3 Top = 19 width = 596 Height = 4 Shape = qrsHorLine end end object QRGroupHeader: TQRBand Left = 6 Top = 84 Width = 653 Height = 16 Align = alTop BandType = rbGroupHeader Color = clWhite Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ForceNewPage = False Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False ParentFont = False Ruler = qrrCmHV object QRLabel9: TQRLabel Left = 126 Top = 2 Width = 39 Height = 14 Caption = '�la� Ad�' AlignToBand = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object QRLabel10: TQRLabel Left = 340 Top = 2 Width = 51 Height = 14 Caption = 'Kutu Mik.' AlignToBand = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object QRLabel11: TQRLabel Left = 428 Top = 2 Width = 58 Height = 14 Caption = 'Br�t Tutar�' AlignToBand = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object QRLabel12: TQRLabel Left = 86 Top = 2 Width = 24 Height = 14 Caption = 'S.No' AlignToBand = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object QRLabel13: TQRLabel Left = 520 Top = 2 Width = 68 Height = 14 Caption = 'Ort.Kutu Mik' AlignToBand = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object QRSubDetail: TQRBand Left = 6 Top = 100 Width = 653 Height = 17 Align = alTop BandType = rbSubDetail Color = clWhite Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ForceNewPage = False Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False ParentFont = False Ruler = qrrCmH object QRSysData1: TQRSysData Left = 416 Top = 1 Width = 65 Height = 17 AlignToBand = False Data = qrsDateTime Text = 'D�k�m Tarihi :' end object QRDBText8: TQRDBText Left = 119 Top = 1 Width = 220 Height = 17 AlignToBand = False DataSource = DataSource2 DataField = 'ILACNO' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object QRDBText9: TQRDBText Left = 348 Top = 1 Width = 39 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSource2 DataField = 'TOPMIK' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object QRDBText10: TQRDBText Left = 400 Top = 1 Width = 94 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSource2 DataField = 'TUTAR' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object QRDBText11: TQRDBText Left = 79 Top = 1 Width = 33 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSource2 DataField = 'SNO' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object QRDBText12: TQRDBText Left = 523 Top = 1 Width = 65 Height = 17 AlignToBand = False DataSource = DataSource2 DataField = 'ORTMIK' end end object QRGroupFooter: TQRBand Left = 6 Top = 117 Width = 653 Height = 17 Align = alTop BandType = rbGroupFooter Color = clWhite ForceNewPage = False Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Ruler = qrrNone end object QRBand3: TQRBand Left = 6 Top = 134 Width = 653 Height = 186 Align = alTop BandType = rbSummary Color = clWhite ForceNewPage = False Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Ruler = qrrNone object QRShape6: TQRShape Left = 126 Top = 16 width = 403 Height = 136 Shape = qrsRectangle end object QRLabel14: TQRLabel Left = 176 Top = 74 Width = 139 Height = 14 Caption = 'Farkl� �la� Say�s� Toplam� :' AlignToBand = False end object QRLabel16: TQRLabel Left = 206 Top = 111 Width = 109 Height = 14 Caption = '�la�lar�n Br�t Tutar� :' AlignToBand = False end object QRLabel17: TQRLabel Left = 193 Top = 18 Width = 122 Height = 14 Caption = 'Toplam Doktor Say�s� :' AlignToBand = False end object QRLabel19: TQRLabel Left = 164 Top = 92 Width = 151 Height = 14 Caption = 'Toplam �la� Kutusu Miktar� :' AlignToBand = False end object QRDBText13: TQRDBText Left = 321 Top = 19 Width = 127 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSTop DataField = 'DRSAY' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object QRDBText14: TQRDBText Left = 321 Top = 74 Width = 127 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSTop DataField = 'FARKILAC' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object QRDBText15: TQRDBText Left = 321 Top = 93 Width = 127 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSTop DataField = 'TOPMIK' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object QRDBText16: TQRDBText Left = 321 Top = 111 Width = 127 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSTop DataField = 'TOPTUT' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object QRDBText19: TQRDBText Left = 321 Top = 127 Width = 127 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSTop DataField = 'ORTMIK' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object QRLabel20: TQRLabel Left = 156 Top = 127 Width = 159 Height = 14 Caption = 'Ortalama �la� Kutusu Miktar� :' AlignToBand = False end object QRLabel23: TQRLabel Left = 256 Top = 0 Width = 148 Height = 14 Caption = 'TOPLAMLAR VE SONU�LAR' AlignToBand = False end object QRLabel1: TQRLabel Left = 200 Top = 37 Width = 115 Height = 14 Caption = 'Toplam Hasta Say�s� :' AlignToBand = False end object QRDBText22: TQRDBText Left = 321 Top = 37 Width = 127 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSTop DataField = 'HSTSAY' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object QRLabel24: TQRLabel Left = 192 Top = 55 Width = 123 Height = 14 Caption = 'Toplam Re�ete Say�s� :' AlignToBand = False end object QRDBText23: TQRDBText Left = 321 Top = 56 Width = 127 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataSTop DataField = 'RECSAY' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end end object PanelTAB: TPanel Left = 0 Top = 38 Width = 619 Height = 371 Color = clSilver TabOrder = 5 object Label3: TLabel Left = 0 Top = 295 Width = 482 Height = 14 Alignment = taCenter AutoSize = False Caption = 'Genel Toplam' Color = clBlue Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label1: TLabel Left = 0 Top = 72 Width = 615 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Doktor Tablosu' Color = clRed Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label4: TLabel Left = 0 Top = 201 Width = 482 Height = 14 Alignment = taCenter AutoSize = False Caption = 'Tabloda ��aretli Doktorun Yazd��� �la�lar ve Detaylar�' Color = clNavy Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object DBGrid1: TDBGrid Left = 0 Top = 85 Width = 616 Height = 115 DataSource = DataSource1 TabOrder = 3 TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] end object BtnHSTARA: TBitBtn Left = 491 Top = 205 Width = 117 Height = 25 Caption = '&Doktor Arama' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = BtnHSTARAClick end object DBGrid3: TDBGrid Left = 0 Top = 309 Width = 569 Height = 59 DataSource = DataSTop TabOrder = 7 TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] end object DBGrid2: TDBGrid Left = 0 Top = 215 Width = 483 Height = 80 DataSource = DataSource2 TabOrder = 6 TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] end object BitBtn3: TBitBtn Left = 491 Top = 280 Width = 117 Height = 25 Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 8 Kind = bkClose end object BtnGRAFCIZ: TBitBtn Left = 544 Top = 9 Width = 71 Height = 24 Caption = '&Grafi�i �iz' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = BtnGRAFCIZClick end object BtnTAB: TBitBtn Left = 544 Top = 43 Width = 71 Height = 25 Caption = '&Tabloyu Yaz' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BtnTABClick end object RadioGrafik: TRadioGroup Left = 0 Top = 1 Width = 542 Height = 71 Caption = '�izilec&ek Grafik' Columns = 2 ItemIndex = 0 Items.Strings = ( 'Doktor Ad� �la� Kutu Miktar� veTutar�' 'Doktor �la�lar�n�n G�nl�k Tutar K.Miktar�' 'Doktor �la�lar�n�n Ayl�k Tutar ve Miktar' 'Doktor �la�lar�n�n Y�ll�k Tutar K.Miktar�' '��aretli Doktorun �la� Ad� ve Miktar veTutar�' '��aretli Doktorun G�nl�k �la� Miktar� ve Tutar�' '��aretli Doktorun Ayl�k �la� Miktar� ve Tutar�' '��aretli Doktorun Y�ll�k �la� Miktar� ve Tutar�') TabOrder = 0 end object BtnDRFIRMA: TBitBtn Left = 491 Top = 243 Width = 117 Height = 25 Caption = '��aretli Dr. ve &Firma ' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = BtnDRFIRMAClick end object BitBtn5: TBitBtn Left = 573 Top = 315 Width = 43 Height = 48 HelpContext = 897 TabOrder = 9 Kind = bkHelp Layout = blGlyphBottom end end object BitBtn4: TBitBtn Left = 491 Top = 318 Width = 117 Height = 25 Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 4 Kind = bkClose end object QAna: TQuery BeforeOpen = QAnaBeforeOpen AfterClose = QAnaAfterClose OnCalcFields = QAnaCalcFields DatabaseName = 'ECZ' SQL.Strings = ( 'SELECT' 'ISTATIKR.DRKOD,' 'SUM(SATIS.MIKTAR) AS TOPMIK,' 'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT,' 'COUNT(DISTINCT SATISNO) AS RECSAY,' 'COUNT(DISTINCT ISTATIKR.HASTANO) AS HSTSAY,' 'AVG(SATIS.MIKTAR) AS ORTMIK,' 'COUNT(DISTINCT SATIS.ILACNO) AS FARKILAC' 'FROM ISTATIKR,SATIS' 'WHERE ' 'ISTATIKR.SATISNO=SATIS.SATISNO' 'GROUP BY ISTATIKR.DRKOD' 'ORDER BY TOPMIK DESC') Left = 24 Top = 136 object QAnaSNO: TIntegerField Calculated = True DisplayLabel = 'S.No' DisplayWidth = 3 FieldName = 'SNO' end object QAnaDRKOD: TIntegerField Alignment = taLeftJustify DisplayLabel = 'Doktor Ad�' DisplayWidth = 25 FieldName = 'DRKOD' OnGetText = QAnaDRKODGetText end object QAnaRECSAY: TIntegerField DisplayLabel = 'Re�.Adedi' FieldName = 'RECSAY' end object QAnaHSTSAY: TIntegerField DisplayLabel = 'Hst.Adedi' FieldName = 'HSTSAY' end object QAnaFARKILAC: TIntegerField DisplayLabel = 'F.�la� Top.' DisplayWidth = 5 FieldName = 'FARKILAC' end object QAnaTOPMIK: TFloatField DisplayLabel = 'T.�.Kutu Mik' DisplayWidth = 4 FieldName = 'TOPMIK' end object QAnaTOPTUT: TCurrencyField DisplayLabel = 'T.Br�t �la� Tutar�' DisplayWidth = 18 FieldName = 'TOPTUT' end object QAnaORTMIK: TFloatField DisplayLabel = 'Ort.K.Mik' DisplayWidth = 4 FieldName = 'ORTMIK' DisplayFormat = '#.#' end end object DataSource1: TDataSource DataSet = QAna Left = 53 Top = 141 end object QIlacAyr: TQuery BeforeOpen = QIlacAyrBeforeOpen BeforeClose = QIlacAyrBeforeClose OnCalcFields = QIlacAyrCalcFields DatabaseName = 'ECZ' DataSource = DataSource1 Params.Data = {010001000544524B4F4400030400000000000100} SQL.Strings = ( 'SELECT' 'SATIS.ILACNO,' 'SUM(SATIS.MIKTAR) AS TOPMIK,' 'AVG(SATIS.MIKTAR) AS ORTMIK,' 'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR' 'FROM ISTATIKR,SATIS' 'WHERE ' 'ISTATIKR.SATISNO=SATIS.SATISNO' 'AND ISTATIKR.DRKOD=:DRKOD' 'GROUP BY SATIS.ILACNO' 'ORDER BY TOPMIK DESC') Left = 5 Top = 257 object QIlacAyrSNO: TIntegerField Calculated = True DisplayLabel = 'S.N.' DisplayWidth = 4 FieldName = 'SNO' end object QIlacAyrILACNO: TIntegerField Alignment = taLeftJustify DisplayLabel = 'ila� Ad�' DisplayWidth = 36 FieldName = 'ILACNO' OnGetText = QIlacAyrILACNOGetText end object QIlacAyrTOPMIK: TFloatField DisplayLabel = 'T.Mik' DisplayWidth = 6 FieldName = 'TOPMIK' end object QIlacAyrTUTAR: TCurrencyField DisplayLabel = 'Br�t Tutar' DisplayWidth = 18 FieldName = 'TUTAR' end object QIlacAyrORTMIK: TFloatField DisplayLabel = 'Ort.Mik' DisplayWidth = 6 FieldName = 'ORTMIK' DisplayFormat = '#.#' end end object DataSource2: TDataSource DataSet = QIlacAyr Left = 38 Top = 261 end object QToplam: TQuery DatabaseName = 'ECZ' SQL.Strings = ( 'SELECT' 'COUNT(DISTINCT ISTATIKR.DRKOD) AS DRSAY,' 'COUNT(DISTINCT ISTATIKR.HASTANO) AS HSTSAY,' 'COUNT(DISTINCT SATISNO) AS RECSAY,' 'SUM(SATIS.MIKTAR) AS TOPMIK,' 'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT,' 'AVG(SATIS.MIKTAR) AS ORTMIK,' 'COUNT(DISTINCT SATIS.ILACNO) AS FARKILAC' 'FROM ISTATIKR,SATIS' 'WHERE ' 'ISTATIKR.SATISNO=SATIS.SATISNO') Left = 8 Top = 371 object QToplamDRSAY: TIntegerField DisplayLabel = 'T.Dr.Say�s�' FieldName = 'DRSAY' end object QToplamHSTSAY: TIntegerField DisplayLabel = 'T.Hasta' DisplayWidth = 6 FieldName = 'HSTSAY' end object QToplamRECSAY: TIntegerField DisplayLabel = 'T.Re�.Adedi' FieldName = 'RECSAY' end object QToplamTOPMIK: TFloatField DisplayLabel = 'T.Kutu Mik.' DisplayWidth = 10 FieldName = 'TOPMIK' end object QToplamTOPTUT: TCurrencyField DisplayLabel = 'Toplam Br�t �la� Tutar�' DisplayWidth = 23 FieldName = 'TOPTUT' end object QToplamFARKILAC: TIntegerField DisplayLabel = 'T.Farkl� �l�.' DisplayWidth = 10 FieldName = 'FARKILAC' end object QToplamORTMIK: TFloatField DisplayLabel = 'Ort.Kutu Mik' DisplayWidth = 10 FieldName = 'ORTMIK' DisplayFormat = '#.#' end end object UrAd: TTable DatabaseName = 'ECZ' TableName = 'Urun.DB' Left = 17 Top = 187 object UrAdILACNO: TAutoIncField Alignment = taLeftJustify FieldName = 'ILACNO' end object UrAdILACKOD: TStringField FieldName = 'ILACKOD' Size = 13 end object UrAdILACAD: TStringField FieldName = 'ILACAD' Size = 36 end end object DRAd: TTable DatabaseName = 'ECZ' TableName = 'DR.DB' Left = 137 Top = 275 object DRAdDRKOD: TAutoIncField FieldName = 'DRKOD' end object DRAdDRAD: TStringField FieldName = 'DRAD' Size = 18 end object DRAdDRSOYAD: TStringField FieldName = 'DRSOYAD' Size = 18 end end object DataSTop: TDataSource DataSet = QToplam Left = 48 Top = 375 end object QGunluk: TQuery DatabaseName = 'ECZ' SQL.Strings = ( 'SELECT' 'ISTATIKR.ALTARIH,' 'SUM(SATIS.MIKTAR) AS TOPMIK,' 'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT' 'FROM ISTATIKR,SATIS' 'WHERE ' '(ISTATIKR.SATISNO=SATIS.SATISNO)' 'GROUP BY ISTATIKR.ALTARIH' 'ORDER BY TOPMIK DESC') Left = 445 Top = 9 object QGunlukALTARIH: TDateField FieldName = 'ALTARIH' end object QGunlukTOPMIK: TFloatField FieldName = 'TOPMIK' end object QGunlukTOPTUT: TCurrencyField FieldName = 'TOPTUT' end end object QIstaRec: TQuery DatabaseName = 'ECZ' Params.Data = { 010002000662617354726800090400C11F0B00000106736F6E54726800090400 9B220B000001} SQL.Strings = ( 'SELECT' 'RECETE.HASTANO,' 'RECETE.DRKOD,' 'RECETE.SATISNO,' 'RECETE.KURUMKOD,' 'RECETE.ALTARIH,' 'EXTRACT(DAY FROM RECETE.ALTARIH) AS GUN,' 'EXTRACT(MONTH FROM RECETE.ALTARIH) AS AY,' 'EXTRACT(YEAR FROM RECETE.ALTARIH) AS YIL,' 'RECETE.NET' 'FROM RECETE' 'WHERE ' '(RECETE.ALTARIH>=:basTrh) AND' '(RECETE.ALTARIH<=:sonTrh)' 'ORDER BY RECETE.ALTARIH') Left = 128 Top = 8 object QIstaRecHASTANO: TIntegerField FieldName = 'HASTANO' end object QIstaRecDRKOD: TIntegerField FieldName = 'DRKOD' end object QIstaRecSATISNO: TFloatField FieldName = 'SATISNO' end object QIstaRecKURUMKOD: TStringField FieldName = 'KURUMKOD' Size = 11 end object QIstaRecALTARIH: TDateField FieldName = 'ALTARIH' end object QIstaRecGUN: TFloatField FieldName = 'GUN' end object QIstaRecAY: TFloatField FieldName = 'AY' end object QIstaRecYIL: TFloatField FieldName = 'YIL' end object QIstaRecNET: TCurrencyField FieldName = 'NET' end end object BatchMove1: TBatchMove Destination = istRecTab Mode = batCopy Source = QIstaRec Left = 160 Top = 8 end object istRecTab: TTable DatabaseName = 'ECZ' TableName = 'istatikR.db' Left = 192 Top = 8 end object QAylik: TQuery DatabaseName = 'ECZ' SQL.Strings = ( 'SELECT' 'ISTATIKR.YIL,ISTATIKR.AY,' 'SUM(SATIS.MIKTAR) AS TOPMIK,' 'SUM(SATIS.MIKTAR*FIYAT) AS TOPTUT' 'FROM ISTATIKR,SATIS' 'WHERE ' '(SATIS.SATISNO=ISTATIKR.SATISNO)' 'GROUP BY ISTATIKR.YIL,ISTATIKR.AY' 'ORDER BY ISTATIKR.NETTUT DESC') Left = 357 Top = 49 object QAylikYIL: TFloatField FieldName = 'YIL' end object QAylikAY: TFloatField FieldName = 'AY' end object QAylikTOPMIK: TFloatField FieldName = 'TOPMIK' end object QAylikTOPTUT: TCurrencyField FieldName = 'TOPTUT' end end object QYillik: TQuery DatabaseName = 'ECZ' SQL.Strings = ( 'SELECT' 'ISTATIKR.YIL,' 'SUM(SATIS.MIKTAR) AS TOPMIK,' 'SUM(SATIS.MIKTAR*FIYAT) AS TOPTUT' 'FROM ISTATIKR,SATIS' 'WHERE ' '(SATIS.SATISNO=ISTATIKR.SATISNO)' 'GROUP BY ISTATIKR.YIL' 'ORDER BY ISTATIKR.NETTUT DESC') Left = 381 Top = 17 object QYillikYIL: TFloatField FieldName = 'YIL' end object QYillikTOPMIK: TFloatField FieldName = 'TOPMIK' end object QYillikTOPTUT: TCurrencyField FieldName = 'TOPTUT' end end object QhstIMikAylik: TQuery DatabaseName = 'ECZ' DataSource = DataSource1 Params.Data = {010001000544524B4F4400030400000000000000} SQL.Strings = ( 'SELECT' 'ISTATIKR.YIL,ISTATIKR.AY,' 'SUM(SATIS.MIKTAR) AS TOPMIK,' 'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR' 'FROM ISTATIKR,SATIS' 'WHERE ' 'ISTATIKR.SATISNO=SATIS.SATISNO' 'AND ISTATIKR.DRKOD=:DRKOD' 'GROUP BY ISTATIKR.YIL,ISTATIKR.AY' 'ORDER BY TOPMIK DESC') Left = 485 Top = 41 object QhstIMikAylikYIL: TFloatField FieldName = 'YIL' end object QhstIMikAylikAY: TFloatField FieldName = 'AY' end object QhstIMikAylikTOPMIK: TFloatField FieldName = 'TOPMIK' DisplayFormat = '#.# A' end object QhstIMikAylikTUTAR: TCurrencyField FieldName = 'TUTAR' end end object PrintDialog1: TPrintDialog Left = 525 Top = 65508 end object QhstIMikYillik: TQuery DatabaseName = 'ECZ' DataSource = DataSource1 Params.Data = {010001000544524B4F4400030400000000000000} SQL.Strings = ( 'SELECT' 'ISTATIKR.YIL,' 'SUM(SATIS.MIKTAR) AS TOPMIK,' 'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR' 'FROM ISTATIKR,SATIS' 'WHERE ' 'ISTATIKR.SATISNO=SATIS.SATISNO' 'AND ISTATIKR.DRKOD=:DRKOD' 'GROUP BY ISTATIKR.YIL' 'ORDER BY TOPMIK DESC') Left = 448 Top = 73 object QhstIMikYillikYIL: TFloatField FieldName = 'YIL' end object QhstIMikYillikTOPMIK: TFloatField FieldName = 'TOPMIK' end object QhstIMikYillikTUTAR: TCurrencyField FieldName = 'TUTAR' end end object DS_QYillik: TDataSource DataSet = QYillik Left = 352 Top = 16 end object DS_QAylik: TDataSource DataSet = QAylik Left = 384 Top = 48 end object DataSource5: TDataSource DataSet = QGunluk Left = 480 Top = 8 end object DS_QhstIMikAylik: TDataSource DataSet = QhstIMikAylik Left = 464 Top = 40 end object DataSource7: TDataSource DataSet = QhstIMikYillik Left = 472 Top = 72 end object QuickReport1: TQuickReport DataSource = DataSource1 ColumnMarginInches = 0 ColumnMarginMM = 0 Columns = 1 DisplayPrintDialog = False LeftMarginInches = 0 LeftMarginMM = 0 Orientation = poPortrait PageFrame.DrawTop = False PageFrame.DrawBottom = False PageFrame.DrawLeft = False PageFrame.DrawRight = False PaperLength = 0 PaperSize = qrpDefault PaperWidth = 0 ReportTitle = 'Doktor Tablosu' RestartData = True SQLCompatible = False TitleBeforeHeader = False Left = 216 Top = 160 end object FontDialog1: TFontDialog Font.Color = clBlack Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] Device = fdBoth MinFontSize = 0 MaxFontSize = 0 Left = 453 Top = 208 end object QhstIMikGunluk: TQuery DatabaseName = 'ECZ' DataSource = DataSource1 Params.Data = {010001000544524B4F4400030400000000000000} SQL.Strings = ( 'SELECT' 'ISTATIKR.ALTARIH,' 'SUM(SATIS.MIKTAR) AS TOPMIK,' 'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR' 'FROM ISTATIKR,SATIS' 'WHERE ' 'ISTATIKR.SATISNO=SATIS.SATISNO' 'AND ISTATIKR.DRKOD=:DRKOD' 'GROUP BY ISTATIKR.ALTARIH' 'ORDER BY TOPMIK DESC') Left = 509 Top = 25 object QhstIMikGunlukALTARIH: TDateField FieldName = 'ALTARIH' end object QhstIMikGunlukTOPMIK: TFloatField FieldName = 'TOPMIK' end object QhstIMikGunlukTUTAR: TCurrencyField FieldName = 'TUTAR' end end object QRDetailLink1: TQRDetailLink DataSource = DataSource2 DetailBand = QRSubDetail FooterBand = QRGroupFooter HeaderBand = QRGroupHeader Master = QuickReport1 PrintBefore = False Left = 294 Top = 200 end end